home *** CD-ROM | disk | FTP | other *** search
/ Private Casting / Casting One.mdf / Docs / Interview.dir / Internal_47.ls < prev    next >
Encoding:
Text File  |  1997-01-22  |  880 b   |  35 lines
  1. on mouseEnter
  2.   cursor([cast "curs", cast "mask"])
  3.   puppetSprite(the currentSpriteNum, 1)
  4.   set the blend of sprite the currentSpriteNum to 50
  5. end
  6.  
  7. on mouseLeave
  8.   cursor(-1)
  9.   set the blend of sprite the currentSpriteNum to 100
  10. end
  11.  
  12. on mouseUp
  13.   cursor(-1)
  14.   set pregunta to the name of cast the castNum of sprite the clickOn
  15.   set the blend of sprite the currentSpriteNum to 100
  16.   repeat with x = 11 to 17
  17.     puppetSprite(x, 0)
  18.     set the visible of sprite x to 0
  19.   end repeat
  20.   puppetTransition(1, 2)
  21.   puppetSound(0)
  22.   updateStage()
  23.   go("video")
  24.   puppetSprite(18, 1)
  25.   set the castNum of sprite 18 to the number of member "blank"
  26.   updateStage()
  27.   set the castNum of sprite 18 to the number of member ("video" & pregunta)
  28.   set the visible of sprite 18 to 1
  29.   updateStage()
  30.   repeat with x = 12 to 16
  31.     set the visible of sprite x to 1
  32.   end repeat
  33.   updateStage()
  34. end
  35.